Option Explicit
Sub J_Sample008()
    Dim myFilename As String
    myFilename = Application.GetSaveAsFilename
    If myFilename = "False" Then
        MsgBox "wg"
    Else
        MsgBox myFilename
    End If
End Sub
